##################################
###############################################################################


 betalse=function(X){  # Y is a vector of responses.
                         # X is a vector of values for the predictor.
   Y=X[,1]
   X1=X[,2]
   n=length(Y)                      
  # Y=round(scale(Y, center=median(Y)),4)
  # X1=round(scale(X1,center=median(X1)),4)
  
  ans=lm(Y~X1)$coef 
              
              ans }

 
########################################################
###################n=15, 25 100###################################
#



